| SetTreeNodeImage method |
Applies to
TGUITestRunner
Declaration
Procedure SetTreeNodeImage(Node :TTReeNode; imgIndex :Integer);Implementation
procedure TGUITestRunner.SetTreeNodeImage(Node :TTReeNode; imgIndex :Integer);
begin
while Node <> nil do
begin
if imgIndex > Node.ImageIndex then begin
Node.ImageIndex := imgIndex;
Node.SelectedIndex := imgIndex;
end;
Node := Node.Parent;
end;
End; |
|
|